datathon
R Markdown
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
library(foreign)
hkdata <- data.frame(read.spss("datathon/Hong Kong v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor level2: CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, WAN
## CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN
## CHAI, WAN CHAI, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN,
## SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN,
## SOUTHERN, SOUTHERN, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO,
## SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI
## PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM
## SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, KOWLOON CITY,
## KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON
## CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY,
## KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON
## CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, WONG TAI SIN, WONG TAI SIN, WONG
## TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN,
## WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI
## SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG
## TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK,
## YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG
## KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM
## & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU
## TSIM & MONG KOK, YAU TSIM & MONG KOK, KWAI TSING, KWAI TSING, KWAI TSING, KWAI
## TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING,
## KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI
## TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING,
## KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, TSUEN WAN, TSUEN WAN, TSUEN WAN,
## TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN,
## TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG,
## YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG,
## YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, NORTH, NORTH,
## NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH,
## NORTH, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO,
## TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI
## KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI
## KUNG, SAI KUNG, SAI KUNG, SAI KUNG, ISLANDS, ISLANDS, ISLANDS, ISLANDS, ISLANDS,
## ISLANDS## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor qt: RESIDENTIAL QUARTERS IN HOTELS/HOSTELS, NON-
## RESIDENTIAL QUARTERS IN HOTELS/HOSTELS## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q061: NOT VERY MUCH INFLUENCE## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9 added in
## variable: q099## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9
## added in variable: q100## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5 added in variable: q101## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9 added
## in variable: q102## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5
## added in variable: q103jpdata <- data.frame(read.spss("datathon/Japan v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 4 added in variable: ir007_2## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 2, 3, 4, 5, 6, 7, 8, 9 added in variable: jp010## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 7 added in variable: jp023## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 144 added in variable: q0972akodata <- data.frame(read.spss("datathon/Korea v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_1## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_2## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_3## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103mldata <- data.frame(read.spss("datathon/Mainland v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 11, 12 added in variable: se003## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0, 3, 4, 10, 20, 31, 32, 40, 50, 52, 60, 100, 110, 120, 130,
## 140, 151, 152, 159, 200, 210, 220, 230, 241, 242, 243, 249, 250, 270, 290, 300,
## 310, 321, 322, 330, 400, 410, 420, 430, 431, 432, 439, 440, 450, 460, 471, 472,
## 473, 490, 510, 520, 530, 540, 550, 560, 600, 610, 620, 630, 640, 650, 660, 670,
## 678, 680, 690, 710, 720, 730, 740, 750, 760, 770, 780, 790, 810, 820, 830, 840,
## 850, 860, 870, 880, 890, 891, 892, 899, 901, 910, 920 added in variable: se012b## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q062: other## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_1: Obey law, No dictator, Majority rule## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_2: Obey law, No dictator, Majority rule## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_3: Obey law, No dictator, Majority rule## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 33, 244, 859 added in variable: q097_a## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_a: No dictator## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 123, 126, 241 added in variable: q097_b## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_b: No dictator## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 87 added in variable: q097_c## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_c: No dictator## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099_1## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099_2## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103mndata <- data.frame(read.spss("datathon/Mongolia v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 335, 652 added in variable: q097_3## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 335, 652 added in variable: q097_c## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103phdata <- data.frame(read.spss("datathon/Philippines v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se006a: DATING DAAN## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a4## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_1: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_2: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_3: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_4: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_1: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_2: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_3: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_9## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_10## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_9## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_10## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_3## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_4## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_9## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_10## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_4## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_9## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_10## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 4, 5, 9, 10, 13, 16, 18, 24, 29, 36, 37, 39, 45, 46, 50,
## 72, 100, 120, 213, 248, 287, 288, 290, 352, 552, 564, 569, 572, 610, 630, 667,
## 669, 713, 728, 779, 784, 928, 1149, 1182, 1183, 1630, 6010 added in variable:
## ir001## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_4## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_9## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a10## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_4## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_5## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_6## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_7## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_8## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_9tadata <- data.frame(read.spss("datathon/Taiwan v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q063_5: None of any party's loyal support, but
## usually feel close to, None of any party's loyal support, but usually feel close
## to, None of any party's loyal support, but usually feel close to, None of any
## party's loyal support, but usually feel close to## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1910, 1912, 1914, 1915, 1917, 1918, 1919, 1920, 1921, 1922,
## 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935,
## 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948,
## 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 1961,
## 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974,
## 1975, 1976, 1977, 1978, 1979, 1980 added in variable: year2## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor tw058: Agree with status quo. If it couldn't be
## status quo, then agthdata <- data.frame(read.spss("datathon/Thailand v4.2.sav", to.data.frame=TRUE))## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
## 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
## 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,
## 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78,
## 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98,
## 99, 100 added in variable: amper## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 17 added in variable: q097_2## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 3, 4, 5, 6, 7, 8, 9 added in variable: q101## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 20 added in
## variable: th002hkdata <- hkdata %>%
drop_na(se005b, se009, se003, se002, se004, q007, q008, q009, q010)
jpdata <- jpdata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)
kodata <- kodata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)
mldata <- mldata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)
mndata <- mndata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)
phdata <- phdata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)
tadata <- tadata %>%
drop_na(se005b, se009, se003, se002, se004, q007, q008, q009, q010)
thdata <- thdata %>%
drop_na(se005b, se009, se003, q007, q008, q009, q010)Including Plots
QUESTION 7
par(mfrow=c(1,3))
hk007 <- ggplot(data = hkdata, aes(x = se002, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (HK)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk007
hk007 <- ggplot(data = hkdata, aes(x = se004, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (HK)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk007
hk007 <- ggplot(data = hkdata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (HK)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk007
hk007 <- ggplot(data = hkdata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (HK)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk007
hk007 <- ggplot(data = hkdata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (HK)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk007
par(mfrow=c(1,3))
hk008 <- ggplot(data = hkdata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (HK)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk008
hk008 <- ggplot(data = hkdata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (HK)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk008
hk008 <- ggplot(data = hkdata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (HK)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk008
par(mfrow=c(1,3))
hk009 <- ggplot(data = hkdata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (HK)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk009
hk009 <- ggplot(data = hkdata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (HK)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk009
hk009 <- ggplot(data = hkdata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (HK)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk009
par(mfrow=c(1,3))
hk010 <- ggplot(data = hkdata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (HK)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk010
hk010 <- ggplot(data = hkdata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (HK)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk010
hk010 <- ggplot(data = hkdata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (HK)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
hk010
par(mfrow=c(1,3))
jp007 <- ggplot(data = jpdata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (JP)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp007
jp007 <- ggplot(data = jpdata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (JP)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp007
jp007 <- ggplot(data = jpdata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (JP)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp007
par(mfrow=c(1,3))
jp008 <- ggplot(data = jpdata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (JP)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp008
jp008 <- ggplot(data = jpdata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (JP)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp008
jp008 <- ggplot(data = jpdata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (JP)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp008
par(mfrow=c(1,3))
jp009 <- ggplot(data = jpdata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (JP)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp009
jp009 <- ggplot(data = jpdata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (JP)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp009
jp009 <- ggplot(data = jpdata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (JP)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp009
par(mfrow=c(1,3))
jp010 <- ggplot(data = jpdata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (JP)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp010
jp010 <- ggplot(data = jpdata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (JP)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp010
jp010 <- ggplot(data = jpdata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (JP)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
jp010
par(mfrow=c(1,3))
ko007 <- ggplot(data = kodata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (KO)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko007
ko007 <- ggplot(data = kodata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (KO)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko007
#ko007 <- ggplot(data = kodata, aes(x = se003, fill = q007))+
# geom_bar(position = "fill")+
# labs(title = "How much trust do you have in the courts? (KO)"
# , "Proportion",
# x = "Age") + theme(text = element_text(size=8),
# axis.text.x = element_text(angle=90, hjust=1))
#ko007par(mfrow=c(1,3))
ko008 <- ggplot(data = kodata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (KO)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko008
ko008 <- ggplot(data = kodata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (KO)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko008
#ko008 <- ggplot(data = kodata, aes(x = se003, fill = q008))+
# geom_bar(position = "fill")+
# labs(title = "How much trust do you have in the national government? (KO)"
# , y = "count",
# x = "Age") + theme(text = element_text(size=8),
# axis.text.x = element_text(angle=90, hjust=1))
#ko008par(mfrow=c(1,3))
ko009 <- ggplot(data = kodata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (KO)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko009
ko009 <- ggplot(data = kodata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (KO)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko009
#ko009 <- ggplot(data = kodata, aes(x = se003, fill = q009))+
# geom_bar(position = "fill")+
# labs(title = "How much trust do you have in political parties? (KO)"
# , y = "Proportion",
# x = "Age") + theme(text = element_text(size=8),
# axis.text.x = element_text(angle=90, hjust=1))
#ko009par(mfrow=c(1,3))
ko010 <- ggplot(data = kodata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (KO)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko010
ko010 <- ggplot(data = kodata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (KO)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ko010
#ko010 <- ggplot(data = kodata, aes(x = se003, fill = q010))+
# geom_bar(position = "fill")+
# labs(title = "How much trust do you have in Parliament? (KO)"
# , y = "Proportion",
# x = "Age") + theme(text = element_text(size=8),
# axis.text.x = element_text(angle=90, hjust=1))
#ko010par(mfrow=c(1,3))
ml007 <- ggplot(data = mldata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (ML)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml007
ml007 <- ggplot(data = mldata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (ML)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml007
ml007 <- ggplot(data = mldata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (ML)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml007
par(mfrow=c(1,3))
ml008 <- ggplot(data = mldata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (ML)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml008
ml008 <- ggplot(data = mldata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (ML)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml008
ml008 <- ggplot(data = mldata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (ML)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml008
par(mfrow=c(1,3))
ml009 <- ggplot(data = mldata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (ML)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml009
ml009 <- ggplot(data = mldata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (ML)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml009
ml009 <- ggplot(data = mldata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (ML)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml009
par(mfrow=c(1,3))
ml010 <- ggplot(data = mldata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (ML)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml010
ml010 <- ggplot(data = mldata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (ML)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml010
ml010 <- ggplot(data = mldata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (ML)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ml010
par(mfrow=c(1,3))
mn007 <- ggplot(data = mndata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (MN)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn007
mn007 <- ggplot(data = mndata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (MN)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn007
mn007 <- ggplot(data = mndata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (MN)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn007
par(mfrow=c(1,3))
mn008 <- ggplot(data = mndata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (MN)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn008
mn008 <- ggplot(data = mndata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (MN)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn008
mn008 <- ggplot(data = mndata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (MN)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn008
par(mfrow=c(1,3))
mn009 <- ggplot(data = mndata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (MN)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn009
mn009 <- ggplot(data = mndata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (MN)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn009
mn009 <- ggplot(data = mndata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (MN)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn009
par(mfrow=c(1,3))
mn010 <- ggplot(data = mndata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (MN)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn010
mn010 <- ggplot(data = mndata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (MN)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn010
mn010 <- ggplot(data = mndata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (MN)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
mn010
par(mfrow=c(1,3))
ph007 <- ggplot(data = phdata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (PH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph007
ph007 <- ggplot(data = phdata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (PH)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph007
ph007 <- ggplot(data = phdata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (PH)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph007
par(mfrow=c(1,3))
ph008 <- ggplot(data = phdata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (PH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph008
ph008 <- ggplot(data = phdata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (PH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph008
ph008 <- ggplot(data = phdata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (PH)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph008
par(mfrow=c(1,3))
ph009 <- ggplot(data = phdata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (PH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph009
ph009 <- ggplot(data = phdata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (PH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph009
ph009 <- ggplot(data = phdata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (PH)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph009
par(mfrow=c(1,3))
ph010 <- ggplot(data = phdata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (PH)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph010
ph010 <- ggplot(data = phdata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (PH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph010
ph010 <- ggplot(data = phdata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (PH)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ph010
par(mfrow=c(1,3))
ta007 <- ggplot(data = tadata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TA)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta007
ta007 <- ggplot(data = tadata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TA)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta007
ta007 <- ggplot(data = tadata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TA)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta007
par(mfrow=c(1,3))
ta008 <- ggplot(data = tadata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TA)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta008
ta008 <- ggplot(data = tadata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TA)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta008
ta008 <- ggplot(data = tadata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TA)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta008
par(mfrow=c(2,3))
ta009 <- ggplot(data = tadata, aes(x = se002, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (Taiwan)"
, y = "Proportion",
x = "Gender") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta009
ta009 <- ggplot(data = tadata, aes(x = se004, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (Taiwan)"
, y = "Proportion",
x = "Marital Identity") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta009
ta009 <- ggplot(data = tadata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (Taiwan)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta009
ta009 <- ggplot(data = tadata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (Taiwan)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta009
ta009 <- ggplot(data = tadata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (Taiwan)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta009
par(mfrow=c(1,3))
ta010 <- ggplot(data = tadata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TA)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta010
ta010 <- ggplot(data = tadata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TA)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta010
ta010 <- ggplot(data = tadata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TA)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
ta010
par(mfrow=c(1,3))
th007 <- ggplot(data = thdata, aes(x = se005b, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th007
th007 <- ggplot(data = thdata, aes(x = se009, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TH)"
, "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th007
th007 <- ggplot(data = thdata, aes(x = se003, fill = q007))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the courts? (TH)"
, "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th007
par(mfrow=c(1,3))
th008 <- ggplot(data = thdata, aes(x = se005b, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th008
th008 <- ggplot(data = thdata, aes(x = se009, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th008
th008 <- ggplot(data = thdata, aes(x = se003, fill = q008))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in the national government? (TH)"
, y = "count",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th008
par(mfrow=c(1,3))
th009 <- ggplot(data = thdata, aes(x = se005b, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (TH)"
, y = "Proportion",
x = "Education") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th009
th009 <- ggplot(data = thdata, aes(x = se009, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (TH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th009
th009 <- ggplot(data = thdata, aes(x = se003, fill = q009))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in political parties? (TH)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th009
par(mfrow=c(1,3))
th010 <- ggplot(data = thdata, aes(x = se005b, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TH)"
, y = "Proportion",
x = "Education Level") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th010
th010 <- ggplot(data = thdata, aes(x = se009, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TH)"
, y = "Proportion",
x = "Monthly Household Income") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th010
th010 <- ggplot(data = thdata, aes(x = se003, fill = q010))+
geom_bar(position = "fill")+
labs(title = "How much trust do you have in Parliament? (TH)"
, y = "Proportion",
x = "Age") + theme(text = element_text(size=8),
axis.text.x = element_text(angle=90, hjust=1))
th010